home *** CD-ROM | disk | FTP | other *** search
/ PC World Interactive 2 / PC World Interactive 2 - Eylül 1997.iso / shar / graf / il7try.exe / IL7TRY / ARCHIVE.Z / ProcSets.aip / TEXT / 262 < prev    next >
Encoding:
Text File  |  1997-05-07  |  193 b   |  5 lines
  1. /, 128 string def
  2. {currentfile , readstring {(,,,,,,,,,,,,,,,,) search
  3. {pop pop pop {currentfile read {46 eq {exit} if} {exit} ifelse} loop exit}
  4. {pop} ifelse} {pop exit} ifelse} bind loop
  5.